﻿Imports Ini11

Public Class Form1

    Public ini As New ini11.IniFile11()

    Private Sub btnOpenFile_Click(sender As Object, e As EventArgs) Handles btnOpenFile.Click
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            ini.Load(OpenFileDialog1.FileName)
        End If

        lsvIni.Items.Clear()

        For Each item As String In ini.ReadKeyRegex("(\[.+)", 0)
            Dim key As New ListViewItem
            key.Text = item
            key.SubItems.Add(ini.Keys(item))
            lsvIni.Items.Add(key)
        Next
    End Sub



End Class
